gusucode.com > 耐品图片管理系统 标准版A > 耐品图片管理系统 标准版A/Admin_ClassModify.asp
<!--#include file="Admin_ChkPurview.asp"-->
<%
'===============================================================
' 著作权号：中国国家版权局著作权登记号2004SR07385
' 版权所有：深圳市耐品科技开发有限公司 www.naipin.com
' 联系电话：0755-26611119 81234844 81234845
' 联系手机：13316911914
' 联系邮箱：naipin@naipin.com
'===============================================================
dim Action,ID,sql,rsClass,i
Action=trim(Request.Form("Action"))
ID=trim(request("ID"))
if ID="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
Behind.WriteErrMsg(ErrMsg)
call ConnClose()
else
ID=CLng(ID)
sql="select * From NT_ClassName where ID=" & ID
set rsClass=server.CreateObject ("Adodb.recordset")
rsClass.open sql,conn,1,3
MyClassName = rsClass("ClassName")
if rsClass.bof and rsClass.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>找不到指定的分类！</li>"
else
if Action="Modify" then
dim ClassName,ClassIntro,ClassUrl
ClassIntro=Netout.HtmlEncode(trim(request.Form("ClassIntro")),True)
ClassName=Netout.HtmlEncode(trim(request.Form("ClassName")),True)
If Trim(request.Form("Class_Or"))=1 then ClassUrl=Trim(request.Form("ClassUrl"))
rsClass("ClassUrl")=ClassUrl
rsClass("ClassName")=ClassName
rsClass("ClassIntro")=ClassIntro
rsClass("target") = Request.Form("target")
rsClass.update
rsClass.close
set rsClass=nothing
Conn.Close
Set conn = Nothing
Response.Redirect "Admin_Class.asp"
else
call main()
end if
end if
rsClass.close
set rsClass=nothing
if FoundErr=True then
Behind.WriteErrMsg(ErrMsg)
end if
end if
set Netout=nothing
sub main()
%>
<html>
<head>
<title>修改分类</title>
<script language="JavaScript" type="text/JavaScript">
function check(){
if (document.form1.ClassName.value==""){
alert("分类名称不能为空！");
document.form1.ClassName.focus();
return false;
}
}
function showadv(tag){
if(tag){
adv.style.display = "";
}else{
adv.style.display = "none";
}
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Behind.WriteHtmlHead
Title="分 类 修 改"
Link="<a href='Admin_Class.asp' class='black'>管理分类</a> | <a href='Admin_ClassAdd.asp' class='black'>添加分类</a> | <a href='Admin_ClassOrderN.asp' class='black'>N级分类排序</a>"
Behind.WriteHtmlTop Title,Link
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<form name="form1" method="post" action="Admin_ClassModify.asp" onSubmit="return check()">
<tr class="title">
<td height="22" colspan="2" align="center" class="tdbg1"><strong>修 改 栏 目</strong></td>
</tr>
<tr class="tdbg">
<td width="40%"><strong>所属分类：</strong></td>
<td><%
if rsClass("ParentID")<=0 then
response.write "无（作为一级分类）"
else
dim rsParentClass,sqlParentClass
sqlParentClass="Select * From NT_ClassName where ID in (" & rsClass("ParentPath") & ") order by iDepth"
set rsParentClass=server.CreateObject("adodb.recordset")
rsParentClass.open sqlParentClass,conn,1,1
do while not rsParentClass.eof
for i=1 to rsParentClass("iDepth")
response.write " "
next
if rsParentClass("iDepth")>0 then
response.write "└"
end if
response.write " " & rsParentClass("ClassName") & "<br>"
rsParentClass.movenext
loop
rsParentClass.close
set rsParentClass=nothing
end if
%></td>
</tr>
<tr class="tdbg">
<td width="350"><strong>分类名称：</strong></td>
<td><input name="ClassName" type="text" value="<%=rsClass("ClassName")%>" size="37" maxlength="20">
<input name="ID" type="hidden" id="ID" value="<%=ID%>"></td>
</tr>
<tr class="tdbg">
<td width="248"><b>分类说明：</b>（不得超过100个字符）</td>
<td>
<textarea cols="35" name="ClassIntro" rows="8"><%=rsClass("ClassIntro")%></textarea>
</td>
</tr>
<tr class="tdbg">
<td><b>新窗打开：</b></td>
<td>
<input name="target" type="radio"<%=Checked(RsClass("target"),"_blank")%>>是
<input name="target" type="radio"<%=Checked(RsClass("target"),"_self")%>>否
</td>
</tr>
<tr class="tdbg">
<td width="248"><strong>是否外部链接：</strong>
</td>
<td>
<input name="Class_Or" type="radio" value=1 onClick="return showadv(1);"<%if rsClass("ClassUrl")<>"" then response.write " checked"%>>是
<input name="Class_Or" type="radio" value=0 onClick="return showadv(0);"<%if rsClass("ClassUrl")="" or isnull(rsClass("ClassUrl")) then response.write " checked"%>>否
<div id=adv <%if rsClass("ClassUrl")="" or isnull(rsClass("ClassUrl")) then response.write " style='display:none'"%>><input name="ClassUrl" type="text" size="37" value="<%=rsClass("ClassUrl")%>">请输入外部链接地址</div></td>
</tr>
<tr class="tdbg">
<td height="40" colspan="2" align="center"><input name="Action" type="hidden" id="Action" value="Modify">
<input name="Submit" type="submit" value="保存修改" style="cursor:hand;">
<input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='Admin_Class.asp'" style="cursor:hand;">
</td>
</tr>
</form>
</table>
<%
Behind.WriteHtmlEnd
end sub
%>